﻿Public Class MatchMaker

    Dim bTier1_2 As New BT1_2
    Dim bTier2_3 As New BT2_3
    Dim bTier2_4 As New BT2_3_4
    Dim bTier3_4 As New BT3_4
    Dim bTier3_5 As New BT3_4_5
    Dim bTier4 As New BT4
    Dim bTier4_5 As New BT4_5
    Dim bTier4_6 As New BT4_5_6
    Dim bTier4_8 As New BT4_5_6_7_8
    Dim bTier5_6 As New BT5_6
    Dim bTier5_7 As New BT5_6_7
    Dim bTier5_8 As New BT5_6_7_8
    Dim bTier5_9 As New BT5_6_7_8_9
    Dim bTier6_7 As New BT6_7
    Dim bTier6_8 As New BT6_7_8
    Dim bTier6_9 As New BT6_7_8_9
    Dim bTier7_8 As New BT7_8
    Dim bTier7_9 As New BT7_8_9
    Dim bTier7_10 As New BT7_8_9_10
    Dim bTier7_11 As New BT7_8_9_10_11
    Dim bTier8_9 As New BT8_9
    Dim bTier8_10 As New BT8_9_10
    Dim bTier8_11 As New BT8_9_10_11
    Dim bTier9_10 As New BT9_10
    Dim bTier9_11 As New BT9_10_11
    Dim bTier10_11 As New BT10_11
    Dim bTier11_12 As New BT11_12

    Public Sub getMatches()
        Select Case Main.cboxTank.SelectedItem
            '1 2
            Case "Renault NC-31", "RenaultFT", "Leichttraktor", "Medium Mark I", "T1 Cunningham", "MS-1"
                bTier1_2.Matches()
                '2 3
            Case "Vickers Mk. E Type B", "D1", "Hotchkiss H35", "RenaultFT AC", "PzKpfw 35 (t)", "PzKpfw 38H735 (f)", "PzKpfw II", "Panzerjager I", "Cruiser Mk. I", "Cruiser Mk. III", "Vickers Medium Mk. II", "M2 LT", "T1E6", "T2 MT", "T18", "BT-2", "T-26", "AT-1", "Tetrarch"
                bTier2_3.Matches()
                '2 3 4
            Case "T2 LT"
                bTier2_4.Matches()
                '3 4
            Case "RenaultBS", "PzKpfw II Ausf. J", "T57", "SU-18", "BT-SV", "M3 Stuart Lend Lease"
                bTier3_4.Matches()
                '3 4 5
            Case "Type 2597 Chi-Ha", "AMX 38", "D2", "Renault UE 57", "FCM36 Pak40", "PzKpfw 38 (t)", "PzKpfw II Luchs", "PzKpfw III Ausf. A", "Marder II", "Sturmpanzer I Bison", "T-15", "PzKpfw S35 739 (f)", "A10 Cruiser Mk. II", "A13 Mk. II Cr. Tank Mk. IV", "Vickers Medium Mk. III", "M3 Stuart", "M2 MT", "T82", "M22 Locust", "MTLS-1G14", "BT-7", "T-46", "SU-76", "T-127"
                bTier3_5.Matches()
                '4
            Case "PzKpfw B2 740 (f)", "Valentine II"
                bTier4.Matches()
                '4 5
            Case "B1", "A-32"
                bTier4_5.Matches()
                '4 5 6
            Case "AMX 40", "Somua SAu-40", "Lorraine39 L AM", "PzKpfw III", "Hetzer", "Sturmpanzer II", "Wespe", "PzKpfw II Ausf. J", "PzKpfw S35 739 (f)", "A13 Covenanter", "Valentine", "Matilda", "M3 Lee", "M8A1", "T40", "M37", "T-28", "SU-85B", "SU-26"
                bTier4_6.Matches()
                '4 5 6 7 8
            Case "M5A1 Stuart", "PzKpfw 38 nA", "M5 Stuart", "A-20"
                bTier4_8.Matches()
                '5 6
            Case "PzKpfw IV Hydraulic", "Matilda Black Prince", "M4A2E4", "T14", "Churchill III", "Matilda IV", "KV-220 Beta-Test"
                bTier5_6.Matches()
                '5 6 7
            Case "Type T-34", "BDR G1B", "S-35 CA", "PzKpfw III/IV", "PzKpfw IV", "StuG III", "T-25", "Crusader", "Churchill I", "M4 Sherman", "M7 MT", "T1 HT", "M10 Wolverine", "T49", "Ram-II", "T-34", "KV-1", "SU-85", "KV-220", "SU-85I"
                bTier5_7.Matches()
                '5 6 7 8
            Case "AMX 105AM", "105 leFH18B2", "Grille", "M7 Priest", "SU-5"
                bTier5_8.Matches()
                '5 6 7 8 9 
            Case "VK 1602 Leopard", "T-50"
                bTier5_9.Matches()
                '6 7
            Case "PzKpfw V-IV", "PzKpfw V-IV Alpha"
                bTier6_7.Matches()
                '6 7 8
            Case "Type 58", "ARL 44", "ARL V39", "VK 3001 (H)", "VK 3001 (P)", "VK 3601 (H)", "JagdPz IV", "PzKpfw IV Schmalturm", "Dicker Max", "Cromwell", "Churchill VII", "TOG II", "M4A3E2", "M4A3E8", "M6", "M18 Hellcat", "M36 Jackson", "T-34-85", "KV-1S", "KV-2", "T-150", "SU-100"
                bTier6_8.Matches()
                '6 7 8 9
            Case "ELC AMX"
                bTier6_9.Matches()
                '7 8
            Case "Panther PzV/M10"
                bTier7_8.Matches()
                '7 8 9
            Case "T-34-1", "IS-2", "AMX M4(1945)", "AMX AC Mle. 1946", "AMX 13 F3 AM", "PzKpfw V Panther", "VK 3002 (DB)", "PzKpfw VI Tiger", "PzKpfw VI Tiger (P)", "Jagdpanther", "Hummel", "Comet", "Black Prince", "AT-15A", "T20", "T29", "T25 AT", "T25/2", "M41", "KV-13", "T-43", "IS", "KV-3", "SU-100M1", "SU-152", "SU-8", "SU-122-44"
                bTier7_9.Matches()
                '7 8 9 10
            Case "Type 62"
                bTier7_10.Matches()
                '7 8 9 10 11
                '7 8 9 10 11 12
                'No new tanks added in Battle Tier 12 so Battle Tiers 7-11 and 7-12
                'combined in the same case for simplicity.
            Case "59-16", "AMX 12t", "VK 2801", "M24 Chaffee", "T21", "T-50-2"
                bTier7_11.Matches()
                '8 9
            Case "FCM 50 t", "Type 59", "8.8 cm PaK 43 Jagdtiger", "T26E4 Super Pershing", "IS-6", "KV-5"
                bTier8_9.Matches()
                '8 9 10
            Case "T-34-2", "110", "Type 59 G", "WZ-111", "AMX 50 100", "AMX AC Mle. 1948", "Panther II", "PzKpfw VIB Tiger II", "VK 4502 (P) Ausf. A", "Ferdinand", "Jagdpanther II", "Lowe", "Centurion Mk. I", "Caernarvon", "M26 Pershing", "T69", "T32", "T28", "T28 Prototype", "M6A2E1", "T34", "T-44", "IS-3", "KV-4", "ISU-152", "SU-101"
                bTier8_10.Matches()
                '8 9 10 11
            Case "WZ-131", "AMX 13 75", "T71"
                bTier8_11.Matches()
                '9 10
            Case "Lorraine155 50", "GW Panther", "M12", "S-51", "SU-14"
                bTier9_10.Matches()
                '9 10 11
                '9 10 11 12
                'No new tanks added in Battle Tier 12 so Battle Tiers 9-11 and 9-12
                'combined in the same case for simplicity.
            Case "WZ-120", "WZ-111 model 1-4", "Lorraine 40 t", "AMX 50 120", "AMX 50 Foch", "E-50", "E-75", "VK 4502 (P) Ausf. B", "Jagdtiger", "Centurion Mk. 7/1", "Conqueror", "M46 Patton", "T54E1", "M103", "T30", "T95", "T-54", "IS-8", "ST-I", "Object 704", "SU-122-54", "WZ-132", "AMX 13 90"
                bTier9_11.Matches()
                '10 11
                '10 11 12
                'No new tanks added in Battle Tier 12 so Battle Tiers 10-11 and 10-12
                'combined in the same case for simplicity.
            Case "Lorraine155 51", "GW Tiger", "M40/M43", "Object 212", "121", "113", "Bat Chatillon 25 t", "AMX 50B", "AMX-50 Foch (155)", "E-50 Ausf. M", "E-100", "Maus", "JagdPz E-100", "FV4202(105)", "FV215b", "M48A1", "T110E5", "T57 HT", "T110E3", "T110E4", "T-62A", "IS-4", "IS-7", "Object 263", "Object 268"
                bTier10_11.matches()
                '11 12
            Case "Bat Chatillon 155", "GW Typ E", "T92", "Object 261"
                bTier11_12.Matches()
        End Select
    End Sub

End Class
